00100 QQQ
00200 LL1 0 5;
00300 P2 RHY/8/16//REP 3 4/8/FINE*;
00400 P3 NO/C2/C5/D3/BF4/FS2/E5*;
00500 P4 1000/P5 .04/P6 .1/P8 F2/P10 F1;
00600 P7 RHY/TEMPO/104*/4//////8//////*;
00700 P11 LIT/A(";X←0"/" "/)/@A/B(";X←0"/";X←0"/" ")/@B/@B/@B*;
00800 END;
00900 TEMPO/104*;
01000 INSERT -1;
01100 SEG(F2);0 1 1 25 .3 50 0 75 0 100;X←0;
01200 RUN;